home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Developers / Jim's CDEFs v1.30 / test3D source ƒ / test3D.c next >
Encoding:
C/C++ Source or Header  |  1994-10-16  |  1.9 KB  |  97 lines  |  [TEXT/KAHL]
  1. //----------------------------------------------------------------------------------
  2. // File        : test3D.c
  3. // Date        : July 23, 1994
  4. // Author    : Jim Stout
  5. //            :
  6. // Purpose    : Test code for the 3D cdef
  7. //----------------------------------------------------------------------------------
  8. #include "debugCDEF.h"
  9. #include "togLib.h"
  10.  
  11. #define sCK1 4
  12. #define sCK2 5
  13. #define sRB1 6
  14. #define sRB2 7
  15.  
  16. #define CK1 11
  17. #define CK2 12
  18. #define RB1 13
  19. #define RB2 14
  20.  
  21. #define TB1 16
  22. #define TB2 17
  23. #define TB3 18
  24. #define TB4 19
  25.  
  26. extern    pascal void CDmain();            // entry point to CDEF in cdef3D.c
  27.  
  28. main()
  29. {
  30.     CJMPhdl                ch;
  31.     DialogPtr            theDialog;
  32.     short                itemHit,t;
  33.     Rect                r;
  34.     ControlHandle        h;
  35.     
  36.     InitGraf(&thePort);
  37.     InitWindows();
  38.     InitFonts();
  39.     InitMenus();
  40.     TEInit();
  41.     InitCursor();
  42.     InitDialogs(0L);
  43.         
  44.     ch = (CJMPhdl)GetResource('CJMP',128);
  45.     if(ch) {
  46.         (**ch).cdefPtr = (long*)CDmain;
  47.         ChangedResource((Handle)ch);
  48.     }
  49.     else
  50.         ExitToShell();
  51.  
  52.     theDialog = GetNewDialog(128,0L,(DialogPtr)-1);
  53.     if(theDialog) {
  54.         SetPort(theDialog);    
  55.         
  56. //        TextFont(geneva);
  57. //        TextSize(9);
  58.  
  59.         ShowWindow(theDialog);
  60.         
  61.         GetDItem(theDialog, sRB1, &t, (Handle *)&h, &r);
  62.         if(h)
  63.             SetCtlValue(h,!GetCtlValue(h));
  64.         
  65.         do {
  66.             ModalDialog(nil,&itemHit);
  67.             switch(itemHit) {
  68.                 case CK1:
  69.                 case CK2:
  70.                 case sCK1:
  71.                 case sCK2:
  72.                     GetDItem(theDialog, itemHit, &t, (Handle *)&h, &r);
  73.                     if(h)
  74.                         SetCtlValue(h,!GetCtlValue(h));
  75.                     resetTogButtons(theDialog,TB1);
  76.                 break;
  77.                 case RB1:
  78.                 case RB2:
  79.                     setRadioButtons(theDialog,itemHit,RB1,RB2);
  80.                     resetTogButtons(theDialog,TB1);
  81.                 break;
  82.                 case sRB1:
  83.                 case sRB2:
  84.                     setRadioButtons(theDialog,itemHit,sRB1,sRB2);
  85.                     resetTogButtons(theDialog,TB1);
  86.                 break;
  87.                 case TB1:
  88.                 case TB2:
  89.                 case TB3:
  90.                 case TB4:
  91.                     setTogButtons(theDialog,itemHit,TB1,TB4);
  92.                 break;
  93.             }
  94.         }while(itemHit != 1 && itemHit != 2);
  95.         DisposDialog(theDialog);
  96.     }
  97. }